Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_d/odbcall.zip/PARAMEDT.DFM/PARAMEDT.txt

Text File | 1995-12-22 | 4KB | 174 lines

object frmParamEditor: TfrmParamEditor
  Left = 200
  Top = 99
  Width = 384
  Height = 218
  Caption = 'ODBC Parameter Editor'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  TextHeight = 16
  object Label1: TLabel
    Left = 147
    Top = 13
    Width = 42
    Height = 16
    Caption = 'Name:'
  end
  object Label2: TLabel
    Left = 153
    Top = 40
    Width = 36
    Height = 16
    Caption = 'Type:'
  end
  object Label3: TLabel
    Left = 149
    Top = 122
    Width = 40
    Height = 16
    Caption = 'Value:'
  end
  object Label4: TLabel
    Left = 141
    Top = 94
    Width = 48
    Height = 16
    Caption = 'Length:'
  end
  object Label5: TLabel
    Left = 258
    Top = 94
    Width = 40
    Height = 16
    Caption = 'Scale:'
  end
  object Label6: TLabel
    Left = 167
    Top = 67
    Width = 22
    Height = 16
    Caption = 'I/O:'
  end
  object Params: TListBox
    Left = 0
    Top = 0
    Width = 133
    Height = 150
    Align = alLeft
    ItemHeight = 16
    TabOrder = 0
    OnClick = ParamsClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 150
    Width = 376
    Height = 41
    Align = alBottom
    TabOrder = 7
    object btnOk: TBitBtn
      Left = 98
      Top = 3
      Width = 89
      Height = 33
      TabOrder = 0
      OnClick = btnOkClick
      Kind = bkOK
    end
    object btnCancel: TBitBtn
      Left = 192
      Top = 3
      Width = 89
      Height = 33
      TabOrder = 1
      Kind = bkCancel
    end
    object BitBtn1: TBitBtn
      Left = 2
      Top = 3
      Width = 89
      Height = 33
      Caption = 'Update'
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object ParamName: TEdit
    Left = 196
    Top = 9
    Width = 168
    Height = 24
    TabOrder = 1
    OnChange = ParamNameChange
  end
  object ParamType: TComboBox
    Left = 196
    Top = 36
    Width = 168
    Height = 24
    ItemHeight = 16
    TabOrder = 2
    OnChange = ParamTypeChange
  end
  object ParamValue: TEdit
    Left = 197
    Top = 118
    Width = 168
    Height = 24
    TabOrder = 6
    OnChange = ParamValueChange
    OnExit = ParamValueExit
  end
  object DataLen: TEdit
    Left = 196
    Top = 90
    Width = 53
    Height = 24
    TabOrder = 4
    OnChange = DataLenChange
  end
  object Scale: TEdit
    Left = 304
    Top = 90
    Width = 60
    Height = 24
    TabOrder = 5
    OnChange = ScaleChange
  end
  object IOType: TComboBox
    Left = 196
    Top = 63
    Width = 168
    Height = 24
    ItemHeight = 16
    Items.Strings = (
      'Input'
      'Input/Output'
      'Result'
      'Output'
      'Return Value')
    TabOrder = 3
    OnChange = IOTypeChange
  end
end